(mail-bury): Check for value, not just

existence, of alist element.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 64ed126a9553dc3832b00b2b535ccfb707cd4594..6b7ab2b1f1fd6743569a8e6fe140286f06662110 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -532,7 +532,7 @@ Prefix arg means don't delete this window."
   (let ((newbuf (other-buffer (current-buffer))))
     (bury-buffer (current-buffer))
     (if (and (or (window-dedicated-p (frame-selected-window))
-                (assq 'mail-dedicated-frame (frame-parameters)))
+                (cdr (assq 'mail-dedicated-frame (frame-parameters))))
             (not (null (delq (selected-frame) (visible-frame-list)))))
        (delete-frame (selected-frame))
       (let (rmail-flag summary-buffer)